(gnus-cite-blank-line-after-header): New variable.

(gnus-article-hide-citation): Respect it.

diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el
index 2bca7c25d6e3a83c551c652e29a390759f0f32f3..47812a727dc83ff99e422fbcc763b75710a4d948 100644 (file)
--- a/lisp/gnus/gnus-cite.el
+++ b/lisp/gnus/gnus-cite.el
@@ -265,6 +265,11 @@ This should make it easier to see who wrote what."
   :group 'gnus-cite
   :type 'integer)
 
+(defcustom gnus-cite-blank-line-after-header t
+  "If non-nil, put a blank line between the citation header and the button."
+  :group 'gnus-cite
+  :type 'boolean)
+
 ;;; Internal Variables:
 
 (defvar gnus-cite-article nil)
@@ -520,7 +525,8 @@ always hide."
                    end (set-marker (make-marker) end))
              (gnus-add-text-properties-when 'article-type nil beg end props)
              (goto-char beg)
-             (unless (save-excursion (search-backward "\n\n" nil t))
+             (when (and gnus-cite-blank-line-after-header
+                        (not (save-excursion (search-backward "\n\n" nil t))))
                (insert "\n"))
              (put-text-property
               (setq start (point-marker))